COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TOSIX"
C00004 ENDMK
C⊗;
BEGIN "TOSIX"
REQUIRE "PIXNIC.SAI[VIS,HPM]" SOURCE_FILE;

STRING FN; INTEGER I,J,K,L;

DO OUTSTR("INPUT FILE:") UNTIL PFLDIM(FN←INCHWL)≠0;

   BEGIN
   INTEGER ARRAY PC[0:PFLDIM(FN)];
   GETPFL(FN,PC[0]);

   OUTSTR(CVS(PC[PCLN])&" HIGH BY "&CVS(PC[LNBY])&" WIDE"&'15&'12);

      BEGIN
      INTEGER ARRAY PC6[0:PIXDIM(PC[PCLN],PC[LNBY],6)];
      MAKPIX(PC[PCLN],PC[LNBYA],6,PC6[0]);
      
      K←6-PC[BYBI];

      FOR I←0 STEP 1 UNTIL PC[PCLN]-1 DO
      FOR J←0 STEP 1 UNTIL PC[LNBY]-1 DO
      PUTEL(PC6[0],I,J,PIXEL(PC[0],I,J) LSH K);

      OUTSTR("OUTPUT FILE:"); PUTPFL(PC6[0],INCHWL);
      END;

   END;

END;